home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / sozobon2.zoo / hcc / subs_tos.s < prev    next >
Encoding:
Text File  |  1990-12-13  |  590 b   |  50 lines
  1.     .globl _lclr
  2.  
  3.     .text
  4.  
  5. _lclr:
  6.  
  7.     link    a6,#0
  8.  
  9.  
  10.  
  11.     move.l    8(a6),a0
  12.  
  13.     move    12(a6),d0
  14.  
  15.     bra    L5
  16.  
  17. L4:
  18.  
  19.     clr.l    (a0)+
  20.  
  21. L5:
  22.  
  23.     dbf    d0,L4
  24.  
  25.  
  26.  
  27.     unlk    a6
  28.  
  29.     rts
  30.  
  31.  
  32.  
  33.     .globl _lcpy
  34.  
  35.     .text
  36.  
  37. _lcpy:
  38.  
  39.     link    a6,#0
  40.  
  41.  
  42.  
  43.     move.l    8(a6),a0
  44.  
  45.     move.l    12(a6),a1
  46.  
  47.     move    16(a6),d0
  48.  
  49.     bra    L8
  50.  
  51. L7:
  52.  
  53.     move.l    (a1)+,(a0)+
  54.  
  55. L8:
  56.  
  57.     dbf    d0,L7
  58.  
  59.  
  60.  
  61.     unlk    a6
  62.  
  63.     rts
  64.  
  65.  
  66.  
  67.     .data
  68.  
  69.     .globl    _f_zero
  70.  
  71. _f_zero:
  72.  
  73.     .dc.l    0
  74.  
  75.     .globl    _f_ten
  76.  
  77. _f_ten:
  78.  
  79.     .dc.l    $a0000044
  80.  
  81.     .globl    _f_tenth
  82.  
  83. _f_tenth:
  84.  
  85.     .dc.l    $cccccd3d
  86.  
  87.     .globl    _f_e10
  88.  
  89. _f_e10:
  90.  
  91.     .dc.l    $9502f962
  92.  
  93.     .globl    _f_em10
  94.  
  95. _f_em10:
  96.  
  97.     .dc.l    $dbe6fd1f
  98.  
  99.